home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 13 / CU Amiga Magazine's Super CD-ROM 13 (1997)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1997-08].iso / CUCD / Graphics / Ghostscript / data / gs_pdf.ps < prev    next >
Text File  |  1997-04-12  |  17KB  |  571 lines
  1. %    Copyright (C) 1994, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % gs_pdf.ps
  19. % ProcSet for PostScript files created by the PDF to PostScript converter.
  20. % This ProcSet requires only a Level 1 interpreter.
  21.  
  22. % pdf2ps copies this file from %BEGIN to the end.
  23.  
  24. %BEGIN
  25. mark                % patches
  26. /currentglobal { false }
  27. /setglobal { pop }
  28. /packedarray { array astore readonly }
  29. /setcmykcolor
  30.  { 1 exch sub
  31.    4 -1 roll 1 exch sub 1 index mul
  32.    4 -1 roll 1 exch sub 2 index mul
  33.    4 -2 roll exch 1 exch sub mul
  34.    setrgbcolor
  35.  }
  36. /.copydict
  37.  { dup 3 -1 roll { put dup } forall pop }
  38. /.dicttomark
  39.  { counttomark 2 idiv dup dict begin { def } repeat pop currentdict end }
  40. /.knownget
  41.  { 2 copy known { get true } { pop pop false } ifelse }
  42. counttomark 2 idiv
  43.  { 1 index where { pop pop pop } { bind executeonly def } ifelse
  44.  } repeat pop
  45.  
  46. currentglobal true setglobal
  47.  
  48. % Define pdfmark.  Don't allow it to be bound in.
  49. % Also don't define it in systemdict, because this leads some Adobe code
  50. % to think this interpreter is a distiller.
  51. % (If this interpreter really is a distiller, don't do this.)
  52. systemdict /pdfmark known not
  53.  { userdict /pdfmark { cleartomark } bind put } if
  54.  
  55. % This ProcSet is designed so that it can be used either to execute PDF
  56. % (the default) or to convert PDF to PostScript.  See ! and ~ below.
  57.  
  58. userdict /GS_PDF_ProcSet 119 dict dup begin
  59.  
  60. % ---------------- Abbreviations ---------------- %
  61.  
  62. /bdef { bind def } bind def
  63.  
  64. % ---------------- Operator execution ---------------- %
  65.  
  66. % We record "operator" names in a dictionary with their argument counts,
  67. % so that they can easily be redefined later to write PostScript in
  68. % addition to (or instead of) being executed.
  69.  
  70. /numargsdict 100 dict def
  71. /!        % <procname> <proc> <numargs> ! -
  72.  { //numargsdict 3 index 3 -1 roll put def
  73.  } bdef
  74. /~        % <procname> <opname> <numargs> ~ -
  75.  { exch cvx 1 packedarray cvx exch !
  76.  } bdef
  77.  
  78. % ---------------- Graphics state stack ---------------- %
  79.  
  80. % PDF adds a number of parameters to the graphics state.
  81. % We implement this by pushing and popping a dictionary
  82. % each time we do a PDF gsave or grestore.
  83. % The keys in this dictionary are as follows:
  84. %    self            % identifies the dictionary as one of ours
  85. %    Show
  86. %    TextOrigin        % origin of current line, in text space
  87. %    TextSaveMatrix        % matrix at time of BT
  88. % (The following correspond directly to PDF state parameters.)
  89. %    FillColor
  90. %    FillColorSpace
  91. %    StrokeColor
  92. %    StrokeColorSpace
  93. %    TextSpacing
  94. %    TextHScaling
  95. %    Leading
  96. %    TextFont
  97. %    TextMatrix
  98. %    TextRise
  99. %    TextRenderingMode
  100. %    WordSpacing
  101.  
  102. /nodict 1 dict def
  103. nodict /self { //nodict } executeonly put
  104. nodict readonly pop
  105.  
  106. /beginpage
  107.  { //nodict 20 dict .copydict begin graphicsbeginpage textbeginpage
  108.  } bdef
  109. /endpage
  110.  { showpage end
  111.  } bdef
  112.  
  113. /graphicsbeginpage { initgraphics  0 g  0 G } bdef
  114.  
  115. /gput        % <value> <key> gput -
  116.  { exch currentdict //nodict eq { /self dup load end 5 dict begin def } if
  117.         % If we're in a Level 1 system, we need to grow the
  118.         % dictionary explicitly.
  119.    currentdict length currentdict maxlength ge %eq
  120.     { currentdict dup length 3 mul 2 idiv 1 add dict .copydict end begin 
  121.     }
  122.    if def
  123.  } bdef
  124.  
  125. /q_
  126.  { gsave //nodict begin
  127.  } bdef
  128. /q /q_ load 0 !
  129. % Some PDF files have excess Q operators!
  130. /Q_
  131.  { currentdict /self .knownget { exec //nodict eq { end grestore } if } if
  132.  } bdef
  133. /Q /Q_ load 0 !
  134.  
  135. % ---------------- Graphics state parameters ---------------- %
  136.  
  137. /d /setdash 2 ~
  138. /i /setflat 1 ~
  139. /j /setlinejoin 1 ~
  140. /J /setlinecap 1 ~
  141. /M /setmiterlimit 1 ~
  142. /w /setlinewidth 1 ~
  143.  
  144. % ---------------- Color setting ---------------- %
  145.  
  146. /fcput        % <color> <colorspace> fcput -
  147.  { /FillColorSpace gput /FillColor gput
  148.  } bdef
  149. /scput        % <color> <colorspace> scput -
  150.  { /StrokeColorSpace gput /StrokeColor gput
  151.  } bdef
  152.  
  153. /csdevgray [/DeviceGray] readonly def
  154. /csdevrgb [/DeviceRGB] readonly def
  155. /csdevcmyk [/DeviceCMYK] readonly def
  156.  
  157. /CSdict 11 dict dup begin
  158.   /DeviceGray { 0 exch } bdef
  159.   /DeviceRGB { [0 0 0] cvx exch } bdef
  160.   /DeviceCMYK { [0 0 0 1] cvx exch } bdef
  161.   /Indexed
  162.    { dup 1 get csset exch pop
  163.      dup 2 index 1 get eq
  164.       { pop }
  165.       { exch 4 array copy dup 1 4 -1 roll put }
  166.      ifelse 0 exch
  167.     } bdef
  168.   /setcolorrendering where
  169.    { pop
  170.      /CalGray
  171.       { 1 get dup /Gamma .knownget
  172.      { dup length 1 add dict .copydict
  173.        dup /DecodeA 4 -1 roll /exp load 2 packedarray cvx put
  174.          }
  175.     if /CIEBasedA exch 2 array astore 0 exch
  176.       } bdef
  177.      /CalRGB
  178.       { 1 get dup /Gamma known 1 index /Matrix known or
  179.      { dup length 2 add dict .copydict
  180.        dup /Matrix .knownget { 1 index /MatrixABC 3 -1 roll put } if
  181.        dup /Gamma .knownget
  182.         { [ exch { /exp load 2 packedarray cvx } forall
  183.           ] 1 index /DecodeABC 3 -1 roll put
  184.         }
  185.        if
  186.          }
  187.     if /CIEBasedABC exch 2 array astore [0 0 0] cvx exch
  188.       } bdef
  189.      /CalCMYK { pop //csdevcmyk csset } bdef    % not supported yet
  190.    }
  191.    { /CalGray { pop //csdevgray csset } bdef
  192.      /CalRGB { pop //csdevrgb csset } bdef
  193.      /CalCMYK { pop //csdevcmyk csset } bdef
  194.    }
  195.   ifelse
  196. end def
  197. /csset            % <cspace> csset <color> <cspace>
  198.  { dup dup type /nametype ne { 0 get } if //CSdict exch get exec
  199.  } bdef
  200.  
  201. /g { //csdevgray fcput } 1 !
  202. /G { //csdevgray scput } 1 !
  203. /rg { 3 array astore cvx //csdevrgb fcput } 3 !
  204. /RG { 3 array astore cvx //csdevrgb scput } 3 !
  205. /k { 4 array astore cvx //csdevcmyk fcput } 4 !
  206. /K { 4 array astore cvx //csdevcmyk scput } 4 !
  207. /cs { csset fcput } 1 !
  208. /CS { csset scput } 1 !
  209. % We have to break up sc according to the number of operands.
  210. /sc1 { /FillColor gput } 1 !
  211. /SC1 { /StrokeColor gput } 1 !
  212. /sc3 { /FillColor load astore pop } 3 !
  213. /SC3 { /StrokeColor load astore pop } 3 !
  214. /sc4 { /FillColor load astore pop } 4 !
  215. /SC4 { /StrokeColor load astore pop } 4 !
  216.  
  217. % ---------------- Color installation ---------------- %
  218.  
  219. % Establish a given color (and color space) as current.
  220. /setfillcolor { FillColor FillColorSpace setgcolor } def
  221. /setstrokecolor { StrokeColor StrokeColorSpace setgcolor } def
  222. /CIdict mark            % only used for Level 1
  223.   /DeviceGray 1   /DeviceRGB 3   /DeviceCMYK 4
  224.   /CIEBaseA 1   /CIEBaseABC 3   /CIEBasedDEF 3   /CIEBaseDEFG 4
  225. .dicttomark def
  226. /Cdict 11 dict dup begin    % <color...> <colorspace> -proc- -
  227.   /DeviceGray { pop setgray } bdef
  228.   /DeviceRGB { pop setrgbcolor } bdef
  229.   /DeviceCMYK { pop setcmykcolor } bdef
  230.   /CIEBasedA
  231.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse setcolor } bdef
  232.   /CIEBasedABC /CIEBasedA load def
  233.   /CIEBasedDEF /CIEBasedA load def
  234.   /CIEBasedDEFG /CIEBasedA load def
  235.   /Indexed /setcolorspace where
  236.    { pop /CIEBasedA load }
  237.    { /setindexedcolor cvx }
  238.   ifelse def
  239. end def
  240. /setindexedcolor        % <index> [/Indexed base hival proc|str]
  241.                 %   setindexedcolor - (only used for Level 1)
  242.  { mark 3 -1 roll
  243.    2 index 3 get    % Stack: cspace -mark- index proc|str
  244.    dup type /stringtype eq
  245.     { //CIdict 4 index 1 get 0 get get        % # of components
  246.       dup 4 -1 roll mul exch getinterval { 255 div } forall
  247.     }
  248.     { exec
  249.     }
  250.    ifelse
  251.    counttomark 2 add -2 roll pop
  252.    1 get setgcolor
  253.  } bdef
  254. /setgcolor    % (null | <color...>) <colorspace> setgcolor -
  255.  { 1 index null eq
  256.     { pop pop }
  257.     { dup 0 get //Cdict exch get exec }
  258.    ifelse
  259.  } bdef
  260. /fsexec        % <fillop|strokeop> fsexec -
  261.  {        % Preserve the current point, if any.
  262.     { currentpoint } stopped
  263.     { $error /newerror false put   cvx exec }
  264.     { 3 -1 roll cvx exec moveto }
  265.    ifelse
  266.  } bdef
  267.  
  268. % ---------------- Transformations ---------------- %
  269.  
  270. /cmmatrix matrix def
  271. /cm { //cmmatrix astore concat } 6 !
  272.  
  273. % ---------------- Path creation ---------------- %
  274.  
  275. /m /moveto 2 ~
  276. /l /lineto 2 ~
  277. /c /curveto 6 ~
  278. /h /closepath 0 ~
  279. /v { currentpoint 6 2 roll curveto } 4 !
  280. /y { 2 copy curveto } 4 !
  281. /re
  282.  { 4 2 roll moveto  exch dup 0 rlineto  0 3 -1 roll rlineto  neg 0 rlineto
  283.    closepath
  284.  } 4 !
  285.  
  286. % ---------------- Path painting and clipping ---------------- %
  287.  
  288. /S_ { setstrokecolor /stroke fsexec } bdef
  289. /S { S_ } 0 !
  290. /f { setfillcolor /fill fsexec } 0 !
  291. /f* { setfillcolor /eofill fsexec } 0 !
  292. /n_ { newpath } bdef        % don't allow n_ to get bound in
  293. /n { n_ } 0 !
  294. /s { closepath S_ } 0 !
  295. /B_ { gsave setfillcolor fill grestore S_ } bdef
  296. /B /B_ load 0 !
  297. /b { closepath B_ } 0 !
  298. /B*_ { gsave setfillcolor eofill grestore S_ } bdef
  299. /B* /B*_ load 0 !
  300. /b* { closepath B*_ } 0 !
  301.  
  302. % Clipping:
  303.  
  304. /Wdict 4 dict dup begin
  305. /S_ { gsave setstrokecolor stroke grestore n_ } bdef
  306. /f { gsave setfillcolor fill grestore n_ } 0 !
  307. /f* { gsave setfillcolor eofill grestore n_ } 0 !
  308. /n_ { end clip newpath } bdef
  309. end readonly def
  310. /W { //Wdict begin } 0 !
  311. /W*dict 4 dict dup begin
  312. /S_ { gsave setstrokecolor stroke grestore n_ } bdef
  313. /f { gsave setfillcolor fill grestore n_ } 0 !
  314. /f* { gsave setfillcolor eofill grestore n_ } 0 !
  315. /n_ { end eoclip newpath } bdef
  316. end readonly def
  317. /W* { //W*dict begin } 0 !
  318.  
  319. % ---------------- Images ---------------- %
  320.  
  321. % We mustn't bind these now, since they reference Level 2 operators.
  322. /Is        % <imagedict> Is <imagedict> <datasource>
  323.  { dup /DataSource get string /readstring cvx /currentfile cvx
  324.         % Stack: imagedict string -readstring- -currentfile-
  325.    3 index /FilterProc .knownget
  326.     { dup dup 0 get /ASCIIHexDecode eq exch length 2 eq and
  327.        { pop exch pop /readhexstring cvx exch }
  328.        { exch exec exch exec }
  329.       ifelse
  330.     }
  331.    if 3 1 roll /pop cvx 4 packedarray cvx
  332.  } bdef
  333. /EI { } def    % placeholder, only needed when writing PostScript
  334. % Note that ID* take a dictionary, not separate values;
  335. % ColorSpace must be a name if it has no parameters;
  336. % DataSource is the size of the row buffer in bytes;
  337. % FilterProc is an optional procedure for constructing the decoding filter;
  338. % and ImageMask is required, not optional.
  339. /csimage
  340.  { /setcolorspace where
  341.     { pop dup /ColorSpace get csset setcolorspace pop image }
  342.     { .colorspaceimage }
  343.    ifelse
  344.  } def        % don't bind, because of Level 2
  345. /ID    % <imagedict> ID -
  346.  { Is dup 3 -1 roll dup /ImageMask get
  347.     { setfillcolor dup /Interpolate .knownget not { false } if
  348.        { dup /DataSource 4 -1 roll put /imagemask cvx exec
  349.        }
  350.        {  { /Width /Height /Decode /ImageMatrix }
  351.       { 1 index exch get exch }
  352.      forall pop exch 0 get 0 ne exch
  353.      5 -1 roll imagemask
  354.        }
  355.       ifelse
  356.     }
  357.     { dup /ColorSpace get /DeviceGray eq
  358.       1 index /BitsPerComponent get 8 le and
  359.       1 index /Decode get dup 1 get 1 eq exch 0 get 0 eq and and
  360.       1 index /Interpolate .knownget not { false } if not and
  361.        {  { /Width /Height /BitsPerComponent /ImageMatrix }
  362.       { 1 index exch get exch }
  363.      forall pop 5 -1 roll image
  364.        }
  365.        { dup /DataSource 4 -1 roll put csimage
  366.        }
  367.       ifelse
  368.     }
  369.    ifelse
  370.         % If we were reading with readhexstring,
  371.         % skip the terminating > now.
  372.         % Stack: datasource
  373.    dup type /filetype ne        % array or packedarray
  374.     { dup 2 get /readhexstring eq
  375.        {  { dup 0 get exec read pop (>) 0 get eq { exit } if } loop
  376.        }
  377.       if pop
  378.     }
  379.     { pop
  380.     }
  381.    ifelse EI
  382.  } 1 !
  383. % IDx handles general images.
  384. /IDx    % <imagedict> IDx -
  385.  { Is 1 index /DataSource 3 -1 roll put
  386.    csimage EI
  387.  } 1 !
  388.  
  389. % ---------------- Text control ---------------- %
  390.  
  391. /textbeginpage
  392.  { /TextSpacing 0 def        % 0 Tc
  393.    /TextLeading 0 def        % 0 TL
  394.    /TextRenderingMode 0 def    % 0 Tr
  395.    /TextRise 0 def        % 0 Ts
  396.    /WordSpacing 0 def        % 0 Tw
  397.    /TextHScaling 1.0 def    % 100 Tz
  398.    /TextFont null def
  399.    /Show { showfirst } def
  400.  } bdef
  401.  
  402. % Contrary to the statement in the PDF manual, BT and ET *can* be nested,
  403. % if the CharProc for a Type 3 font does a BT/ET itself.
  404. % Since we always call the CharProc inside a q_/Q_, we simply ensure that
  405. % the text state is saved and restored like the rest of the extended
  406. % graphics state.
  407.  
  408. /settextmatrix
  409.  { TextMatrix concat
  410.    TextHScaling 1 ne { TextHScaling 1 scale } if
  411.    TextRise 0 ne { 0 TextRise translate } if
  412.  } bdef
  413. /settextstate { TextSaveMatrix setmatrix settextmatrix } bdef
  414.  
  415. /BT
  416.  { currentdict /TextMatrix .knownget
  417.     { identmatrix pop }
  418.     { matrix /TextMatrix gput }
  419.    ifelse
  420.    currentdict /TextOrigin .knownget
  421.     { dup 0 0 put 1 0 put }
  422.     { [0 0] cvx /TextOrigin gput }
  423.    ifelse
  424.     { showfirst } /Show gput
  425.    currentdict /TextSaveMatrix .knownget not
  426.     { matrix dup /TextSaveMatrix gput }
  427.    if currentmatrix pop settextmatrix 0 0 moveto
  428.    TextFont dup null eq { pop } { setfont } ifelse
  429.  } bind 0 !
  430. /ET
  431.  { TextSaveMatrix setmatrix
  432.  } bind 0 !
  433. /Tc_ { /TextSpacing gput { showfirst } /Show gput } bdef
  434. /Tc { Tc_ } 1 !
  435. /TL { /TextLeading gput } bind 1 !
  436. /Tr { /TextRenderingMode gput { showfirst } /Show gput } bind 1 !
  437. /Ts { /TextRise gput settextstate } bind 1 !
  438. /Tw_ { /WordSpacing gput { showfirst } /Show gput } bdef
  439. /Tw { Tw_ } 1 !
  440. /Tz { 100 div /TextHScaling gput settextstate } bind 1 !
  441.  
  442. /Tf        % <font> <scale> Tf -
  443.  { dup 1 eq { pop } { scalefont } ifelse
  444.    dup setfont /TextFont gput
  445.  } 2 !
  446.  
  447. % Copy a font, removing its FID.  If changed is true, also remove
  448. % the UniqueID and XUID, if any.  If the original dictionary doesn't have
  449. % the keys being removed, don't copy it.
  450. /.copyfontdict        % <font> <changed> .copyfontdict <dict>
  451.  { 1 index /FID known
  452.    1 index { 2 index /UniqueID known or 2 index /XUID known or } if
  453.     {        % We add 1 to the length just in case the original
  454.         % didn't have a FID.
  455.       exch dup length 1 add dict exch
  456.        {        % Stack: changed newfont key value
  457.      1 index /FID eq 4 index
  458.       { 2 index /UniqueID eq or 2 index /XUID eq or }
  459.      if not { 3 copy put } if pop pop
  460.        }
  461.       forall exch
  462.     }
  463.    if pop
  464.  } bdef
  465.  
  466. % Insert a new Encoding or Metrics into a font if necessary.
  467. % Return a possibly updated font, and a flag to indicate whether
  468. % the font was actually copied.
  469. /.updatefont        % <font> <Encoding|null> <Metrics|null> .updatefont
  470.             %   <font'> <copied>
  471.  { 2 index 4 1 roll
  472.    dup null ne
  473.     { 3 -1 roll true .copyfontdict dup /Metrics 4 -1 roll put exch }
  474.     { pop }
  475.    ifelse
  476.    dup null ne 1 index 3 index /Encoding get ne and
  477.     { exch false .copyfontdict dup /Encoding 4 -1 roll put }
  478.     { pop }
  479.    ifelse exch 1 index ne
  480.  } bdef
  481.  
  482. % ---------------- Text positioning ---------------- %
  483.  
  484. /Td_
  485.  { TextOrigin exch 4 -1 roll add 3 1 roll add
  486.    2 copy /TextOrigin load astore pop moveto
  487.  } bdef
  488. /Td { Td_ } 2 !
  489. /TD { dup neg /TextLeading gput Td_ } 2 !
  490. /T*_ { 0 TextLeading neg Td_ } bdef
  491. /T* { T*_ } 0 !
  492. /Tm
  493.  { TextMatrix astore pop settextstate
  494.    0 0 /TextOrigin load astore pop
  495.    0 0 moveto
  496.  } 6 !
  497.  
  498. % ---------------- Text painting ---------------- %
  499.  
  500. /textrenderingprocs [        % (0 is handled specially)
  501.    { tf } { tS } { tB } { tn }
  502.     % We don't know what the clipping modes mean....
  503.    4 copy
  504. ] readonly def
  505. /setshowstate
  506.  { WordSpacing 0 eq TextSpacing 0 eq and
  507.     { TextRenderingMode 0 eq
  508.        { { setfillcolor show } }
  509.        { { false charpath textrenderingprocs TextRenderingMode get exec } }
  510.       ifelse
  511.     }
  512.     { TextRenderingMode 0 eq
  513.        { WordSpacing 0 eq
  514.           { { setfillcolor TextSpacing exch 0 exch ashow } }
  515.       { TextSpacing 0 eq
  516.          { { setfillcolor WordSpacing exch 0 exch 32 exch widthshow } }
  517.          { { setfillcolor WordSpacing exch TextSpacing exch 0 32 4 2 roll 0 exch awidthshow } }
  518.         ifelse
  519.       }
  520.      ifelse
  521.        }
  522.        { { WordSpacing TextSpacing 2 index
  523.             % Implement the combination of t3 and false charpath.
  524.             % Stack: xword xchar string
  525.        0 1 2 index length 1 sub
  526.         { 2 copy 1 getinterval false charpath
  527.             % Stack: xword xchar string i
  528.           4 copy get 32 eq { add } { exch pop } ifelse 0 rmoveto
  529.           pop
  530.         }
  531.        for pop pop pop pop
  532.        textrenderingprocs TextRenderingMode get exec
  533.      }
  534.        }
  535.       ifelse
  536.     }
  537.    ifelse /Show gput
  538.  } bdef
  539. /showfirst { setshowstate Show } def
  540.  
  541. /Tj { Show } 1 !
  542. /' { T*_ Show } 1 !
  543. /" { exch Tc_ exch Tw_ T*_ Show } 3 !
  544. % TJ expects a mark followed by arguments, not an array.
  545. /TJ
  546.  { counttomark -1 1
  547.     { -1 roll dup type /stringtype eq
  548.        { Show }
  549.        { neg 1000 div 0 rmoveto }
  550.       ifelse
  551.     }
  552.    for pop
  553. % Adobe implementations don't accept /[, so we don't either.
  554.  } ([) cvn !
  555.  
  556. /tf { setfillcolor currentpoint fill moveto } bdef
  557. /tn { currentpoint newpath moveto } bdef
  558. % For stroking characters, temporarily restore the graphics CTM so that
  559. % the line width will be transformed properly.
  560. /Tmatrix matrix def
  561. /tS
  562.  { setstrokecolor
  563.    currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix stroke
  564.    setmatrix moveto
  565.  } bdef
  566. /tB { gsave tf grestore tS } bdef
  567.  
  568. end readonly put        % GS_PDF_ProcSet
  569.  
  570. setglobal
  571.